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SINGLE LENGTH FLOATING POINT PACKAGE 


DECUS Program Library Write-up 


DEC US No. 8-278 


ABSTRACT 

% 

This Single Length Floating Point Package consists of a modified version of DEC-J08-YQ1A-PB 
an ,s intended as an alternative where input and output accuracy is adequately served by single 
ngth working. Entry points and commands are identical with the standard double length version. 

impToy inaADC w! ‘ T * ** *** WaS develo P ed for <>n-line calculations 

mploying ADC s and DAC s. Typical improvements in execution time are listed below: 



SINGLE LENGTH 

DOUBLE 

FADD 

1.2 

2.4 

FSUB 

2.0 

3.25 

FMPY 

0.4 

4.00 

FDIV 

2.25 

4.4 
















/FLOATING POINT ARITHMETIC 


0040 

0000 

* 40 

EX 1 , 

0 


004 1 

0000 

AC 1 H, 

0 


0042 

0000 

AC1L, 

0 


0043 

0000 

0 VER1, 

0 


0044 

0000 

EXP, 

0 


0045 

0000 

HORD, . 

0 


0046 

0000 

lord. 

0 


0047 

0000 

0VER2, 

0 


0050 

0000 

EXP 1 , 

0 


00 51 

0000 

OUOL, 

0 


0052 

0000 

FPAC1, 

0 


00 53 
00 54 

00 61 

0000 

0000 

0000 

* 6 1 

FLAG, 

0 

0 

0 


5600 

0000 

*5600 

FPNT, 

0 


5601 

7300 


CL A 

CLL 

5602 

3042 


DCA 

AC 1L 

5603 

3046 


DCA 

LORD 

5604 

1 600 


TAD 

I FPNT 

560 5 

3250 


DCA 

J UMP 

5606 

1250 


TAD 

JUMP 

560 7 

0260 


AND 

PA6EN0 

5610 

7650 


SNA 

CL A 

561 1 

5214 


JMP 

• + 3 

5612 

1256 


TAD 

MASKS 

56 13 

0200 


AND 

FPNT 

561 4 

3253 


DCA 

ADDR 

561 5 

1257 


TAD 

MASK 7 

5616 

0250 


AND 

JUMP 

5617 

12 53 


TAD 

ADDR 

562.0 

32 53 


DCA 

ADDR 

562 1 

1261 


TAD 

INDRCT 

5622 

025n 


AND 

JUMP 

5623 

7650 


SNA 

CLA 

5624 

5227 


JMP 

LOOPO1 

5625 

16 53 


TAD 

1 A |>DR 

5626 

32 53 


DCA 

ADDR 

5627 

2200 

LOOPO 1, 

I SZ 

FPNT 

5630 

1 653 


TAD 

I ADDR 

5631 

3040 


DCA 

EX 1 

5632 

1253 


TAD 

ADDR 

5633 

3254 


DCA 

SAVE 

5634 

2254 


ISZ 

SAVE 

5635 

1654 


TAD 

I SAVE 

563 6 

3041 


DCA 

AC 1H 

5637 

1250 


TAD 

JUMP 

5640 

7106 


CLL 

RTL 

564 1 

7006 


RTL 


interpreter 


/ARITHMETIC ERROR FLAG 


/ GET NEXT INSTRUCTION 


/ PAGE ZERO 
/YES 
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/ GET THE OP CODE 


5642 

5643 

5644 

5645 

5646 

5647 

5650 

5651 

5652 
56 53 

5654 

5655 

5656 

5657 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 
56 70 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 
5710 
571 1 

5712 

5713 

5714 

5715 

5716 

5717 

5720 

5721 

5722 


0255 


AMD MASK 3 

1262 


TAD TABLE 

3251 


DC A JUMP2 

1651 


TAD I JUMP2 

32 51 


DC A JUMP 2 

5651 


JMP I JUMP2 

0000 

JUMP, 

0 

0000 

JIJMP2, 

0 

0000 

GO 2, 

0 

0000 

ADDR, 

0 

0000 

SAVE, 

0 

0017 

MASK 3, 

0017 

7600 

MASKS, 

7600 

0177 

MASK 7, 

0177 

0200 

PAGENO, 

0200 

0400 

INDRCT, 

0400 

5663 

table. 

• + 1 

5726 


EXIT 

5706 


FLAD 

5723 


FLSU 

5745 


FLMY 

6240 


FLDV 

5673 


FLGT 

5700 


FLPT 

5757 


NORF 

1 040 

FLGT, 

TAD EX 1 

3044 


DCA EXP 

1 04 1 


TAD AC 1H 

304 5 


DCA HORD 

5201 


JMP FPNT+1 

1044 

FLPT , 

TAD EXP 

3653 


DCA I ADDR 

2253 


ISZ ADDR 

1045 


TAD HORD 

36 53 


DCA I ADDR 

520 1 


JMP FPNT+1 

4755 

FLAD, 

JMS I ALGM 

5201 


JMP EPNT+ 1 

4756 


JMS I UNORM 

7 1 00 


CLL 

1042 


TAD AC 1L 

1046 


TAD LORD 

3046 


DCA LORD 

7004 


RAL 

1 04 1 


TAD AC 1H 

1045 


TAD HORD 

3045 


DCA HORD 

4754 


JMS I NORM 

520 l 


JMP FPMT+1 
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5723 

4 725 

FLSU, 

5724 

5306 


5725 

6400 

OPMINS 

5726 

1250 

EX I T, 

5727 

0255 


5730 

7450 


5731 

5600 


5732 

1 344 


5733 

3251 


5734 

1651 


5735 

3251 


5736 

1200 


5737 

3252 


5740 

4651 


5741 

1252 


5742 

3200 


5743 

5201 


5744 

6516 

ACON6, 

574 5 

7201 

FLMY, 

5746 

1040 


5747 

1 044 


5750 

3044 


5751 

4753 


57 52 

5201 


5753 

6216 

MULT* 

5754 

6600 

NORM, 

5755 

60 13 

AL GN , 

5756 

6536 

UNORM, 

5757 

47 54 

NORF, 

5760 

5201 



JMS I 0 PM IMS 
JMP FLAD 
.MINUS2 
TAD JUMP 
AND MASK3 
SNA 

JMP I FPNT 
TAD AC0N6 
DCA JUMP2 
TAD I JUMP2 
DCA JUMP2 
TAD FPNT 
DCA GO2 
JMS I JUMP2 
TAD GO2 
DCA FPNT 
JMP FPNT+1 
TARLF6-1 
CLA I AC 
TAD EX 1 
TAD EXP 
DCA EXP 
JMS I MULT 
JMP FPNT* 1 
DMULT 
DNO RM 
AL I GN 
DUNORM 
JMS I NORM 
JMP FPNT+ 1 
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* 6000 

ACMINS* 0 


6000 

1 0000 

600 I 

7300 

6002 

1046 

6003 

7041 

600 A 

3046 

6005 

1045 

6006 

7040 

6007 

7430 

6010 

7101 

601 1 

3045 

6012 

5600 

60 13 

0000 

60 1 4 

1045 

6015 

7650 

60 1 6 

53 1 3 

6017 

1 04 1 

6020 

7650 

6021 

5613 

6022 

1 040 

6023 

7041 

6024 

1 044 

6025 

7450 

6026 

52 73 

602 7 

7 500 

6030 

704 1 

6031 

3316 

6032 

1316 

6033 

1317 

6034 

7700 

603 5 

5243 

6036 

4275 

6037 

7430 

6040 

1 322 

604 1 

1 323 

6042 

5304 

6043 

42 7 5 

6044 

7420 

60 4 5 

1323 

6046 

1322 

6047 

3320 

6050 

1316 

60S) 

704 1 

60 52 

1 720 

60 53 

3720 

6054 

2320 

6055 

1 320 

60 56 : 

3321 

6057 2321 


CLL CLA 
TAD LORD 
CMA I AC 
DCA LORD 
TAD HORD 
CMA 
SZL 

CLL I AC 
OCA HORD 
JMP I ACMINS 

0 

TAD HORD 
SNA CLA 
JMP NOHRRE 
TAD AC 1H 
SNA CLA 
JMP I ALIGN 
TAD EX 1 
CMA I AC 
TAD EXP 
SNA 

JMP DONE 

SMA 

CIA 

DC A AMOUNT 
TAD AMOUNT 
TAD TESTS? 

SMA CLA 
JMP .+6 
JMS OUTGO 
SZL 

TAD TAG 1 
TAD TAGS? 

JMP NOGO 
JMS OUTGO 
SNL 

TAD TAGS? 

TAD TAG 1 
OCA TEST3 
TAD AMOUNT 
CIA 

TAD I TEST3 
OCA I TF.ST3 
ISZ TEST3 
TAD TEST3 
OCA TEST 4 
ISZ TFST4 


/ROUTINE TO PERFORM DO URL F 
/NEGATION OF FLOATING ACC 


PRFCS 
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6060 

6061 

6062 

6063 

6064 

6065 

6066 
6067 

6070 

6071 
60 72 
60 73 

6074 

6075 

6076 

6077 
6100 
6101 
6102 

6103 

6104 

6105 

6106 
6107 
61 10 
6111 
61 12 
61 13 
61 14 
61 1 5 
61 1 6 
61 1 7 
6120 
6121 
6122 

6123 

6124 

6125 

6126 
6127 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 
6140 
6M1 
6142 
6 1 43 


7100 SHIFT, 

1 720 

7510 

7020 

7010 

3 720 

172 1 

70 10 

3 72 1 

2316 

5260 

2213 DONE, 
5613 

0000 OUTGO, 

1 040 
704 1 
1 044 


7004 

7200 

5675 


3320 

1 720 

3044 
2320 

1 720 

3045 
5613 

NO GO, 

1 040 
3044 
5273 

nohere. 

0000 

AMOUNT, 

00 1 4 

TEST2, 

0000 

TEST3, 

0000 

TEST 4, 

00 44 

T AG 1 , 

7774 

TAG2, 

5601 

RFTN2, 

1 333 
3044 
1333 
304 5 
2061 
5724 

ERR0R1 , 

3777 

GOOF, 

0000 

4407 

6052 

SQUARE, 


3052 

0000 

5734 


0000 EXIT6, 
5742 


CLL 

TAD I TEST3 

SPA 

CML 

RAR 

DCA I TEST3 
TAD I TEST4 
RAR 

DCA I TEST4 
ISZ AMOUNT 
JMP SHIFT 
ISZ ALIGN 
JMP I ALIGN 
0 

TAD FX1 
CIA 

TAD EXP 
RAL 
CL A 

JMP I OUTGO 
DCA TFST3 
TAD I TFST3 
DCA FXP 
ISZ TFST3 
TAD I TEST3 
DC A HORD 
JMP I ALIGN 
TAD EX 1 
DC A F.XP 
JMP DONE 
0 

1 4 

0 

0 

EXP 

EX 1-EXP 
FPNT+ 1 
TAD GOOF 
DCA EXP 
TAD GOOF 
DCA HORD 
ISZ FLAG 
JMP I RETN2 
3777 
0 

JMS I 7 
FPUT FPAC1 
FMPY FPAC1 
FEXT 

JMP I SQUARE 
0 

JMP I FXIT6 


/THIS ROUTINE DOES THE SHIFTING 


/MANTISSA IS ZERO 


/SET ERROR FLAG 
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6 200 
620 1 
6202 

6203 

6204 

6205 

6206 
6207 
6210 
621 1 
6212 

6213 

6214 

6215 

6216 
6217 
6220 
6221 
6222 

6223 

6224 

6225 

6226 
6227 

6230 

6231 

6232 

6233 

6234 

6235 
623 6 

623 7 

6240 

624 1 

6242 

6243 

6244 
62 4 5 
6246 
624 7 

6250 

6251 
62 52 
6253 
62 54 

6255 

6256 

6257 
6260 
6261 
62 62 

6263 

6264 


*6200 
0000 DIV1, 
7300 
1045 
7510 
7120 
70 1 0 

3045 
1 046 
7010 

3046 
7100 
2044 
7000 
5600 

0000 DM UL T * 

7300 

1312 

32 76 

42 6 5 

1041 

370 5 

1045 

4 704 

3046 

1 706 

3045 
4707 

3046 
23 1 4 
5616 
4722 
5616 

1041 FLDV> 

7650 

5723 

l 040 

7041 

1 044 

700 1 

3044 

13 11 

3276 

4265 

47 10 

1 706 

1041 

7630 

700 1 

3041 

2314 

4722 

5664 

5710 


0 

CLA CLL 
TAD HORD 
SPA 

CLL CML 
RAR 

DCA HORD 
TAD LORD 
RAR 

DCA LORD 
CLL 

ISZ EXP 
MOP 

JMP I DIV1 
0 

CLA CLL 
TAD SMACLA 
DCA SNSWIT 
JMS SIGN 
TAD AC 1H 
DCA I MP2PT 
TAD HORD 
JMS I MP4PT 
DCA LORD 
TAD I MP5PT 
DCA HORD 
JMS I NORMF 
DCA LORD 
ISZ SGN 
JMP I DMULT 
JMS I MINS 
JMP I DMULT 

TAD AC 1H 
SNA CLA 
JMP I ERROR 
TAD EX 1 
CMA I AC 
TAD FXP 
I AC 

DCA EXP 
TAD SPACLA 
DCA SNSWIT 
JMS SIGN 
JMS I DIVIDE 
TAD I MP5PT 
TAD AC 1H 
SZL CLA 
I AC 

DCA AC 1H 
ISZ SGN 
JMS I MINS 
JMP I 

FLAD+ 2 - 














6265 

0000 

6266 

13 15 

6267 

3314 

62 70 

1045 

6271 

7700 

62 72 

5275 

6273 

4722 

6274 

23 14 

6275 

1041 

6276 

7700 

6277 

5665 

6300 

4720 

630 1 

2314 

6302 

7000 

6303 

5665 


0 


TAD 

REST 

DCA 

SON 

TAD 

NORD 

SMA 

CLA 

JMP 

• + 3 

JMS 

I MINS 

ISZ 

SGN 

TAD 

acih 

SMA 

CLA 

JMP 

I SIGN 

JMS 

I MINS2 

ISZ 

SGN 

NOP 


JMP 

I SIGN 


SIGN, 


SNSWIT, 


6304 6427 MP4PT, 

6305 6461 MP2PT, 

6306 6455 MP5PT, 

6307 6600 NORME, 

6310 6462 DIVIDE, 

6311 7710 SPACLA, 

6312 7700 SMACLA, 

6313 5601 RETURN, 

6314 0000 SGN, 

6315 7776 REST, 

6316 0000 o, 

6317 0000 KEEP, 

6320 6400 MINS2, 

6321 6413 RAR2, 

6322 6000 MINS, 

6323 6125 ERROR, 


MP4 
MP2 
MP5 
DNO RM 
DUBDIV 
SPA CLA 
SMA CLA 
FPNT+ 1 
0 

7776 

0 

0 

MINUS2 
DI V2 
ACM INS 
ERROR1 
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6400 0000 

6401 7300 

6402 1042 

6403 7041 

6404 3042 

6405 1041 

6406 7040 

6407 7430 

6410 7101 

6411 3041 

6412 5600 


PAUSE 

/NEGATE OPERAND* DOUBLE PRECISION 
*6400 

MINUS2* 0 

CLA CLL 
TAD AC 1 L 
CMA I AC 
DCA AC1L 
TAD AC 1 H 
CMA 
SZL 

CLL I AC 
DCA AC 1 H 
JMP I MINUS2 


6413 0000 

6414 7300 


64 15 

1041 

6416 

7510 

64 1 7 

7120 

6420 

70 1 0 

642 1 

3041 

6422 

1042 

6423 

7010 

6424 

3042 

6425 

7100 

6426 

5613 


6427 

0000 

6430 

3256 

6431 

3255 

6432 

1260 

6433 

3257 

6434 

7100 

6435 

1256 

6436 

70 1 0 

6437 

3256 

6440 

1255 

6441 

7420 

6442 

5245 

6443 

7100 

644 4 

1261 

6445 

70 1 0 

6446 

3255 

64^7 

2257 

64 50 

5235 

64 51 

1256 

6452 

70 1 0 

6453 

7100 

6454 

5627 

64 55 

0000 

6456 

0000 

6457 

0000 

6460 

7764 

64 61 

0000 


/SHIFT OPERAND RIGHT* DOUBLE PRECISION 
DIV2* 0 

CLA CLL 
TAD AC 1 H 
SPA 

CLL CML 

RAR 

DCA AC 1 H 
TAD AC1L 
RAR 

DCA AC1L 
CLL 

JMP I DIV2 


/SINGLE PRECISION MULTIPLY* 12 BY 12 BITS 
MP4* 0 

DCA MP 1 
DCA MP5 
TAD THIR 
DCA MP3 
CLL 

TAD MP 1 
RAR 

DCA MP 1 
TAD MP5 
SNL 

JMP .+3 
CLL 

TAD MP 2 
RAR 

DCA MP5 
ISZ MP 3 
JMP MP4+6 
TAD MP 1 
RAR 
CLL 

JMP I MP4 
MP5* 0 

MP1, 0 

MP3* 0 

THIR, 7764 

MP2* 0 9 

















6462 

0000 

dubd 

6463 

7300 


64 64 

3051 


6465 

1316 


6466 

3257 


6467 

5273 


6470 

1 045 

DV3, 

64 71 

7004 


647? 

304 5 


6473 

1045 

DVXj 

6474 

104 1 


6475 

7420 


6476 

5300 


6477 

3045 


6500 

7200 


6501 

1051 

DV 2 j 

6502 

7004 


6503 

30 51 


6504 

2257 


6505 

52 70 


650 6 

1045 


6507 

7100 


6510 

7006 


6511 

3255 


651 2 

105 1 


6513 

304 5 


6514 

1255 


6515 

5662 


6516 

7765 

MIF, 

6517 

6134 

TABLE 6 

6520 

6651 


6521 

614? 


6522 

6142 


6523 

614? 


6524 

6 1 4? 


6525 

61 42 



6526 614? 

65? 7 614 ? 

6530 614? 

6531 6142 

6532 614 ? 

6533 6142 

6534 6142 

6535 6142 

6536 0000 DUNORM, 

6537 4 ? ] 3 

6540 4744 

6541 2040 

6542 7000 

6543 5736 

6544 6200 RAR1, 


0 


CL A 

CLL 

DC A 

QUOL 

TAD 

mif 

DCA 

MP3 

JMP 

DVX 

TAD 

HORD 

RAL 


DCA 

HORD 

TAD 

HORD 

TAD 

AC 1H 

SNL 


JMP 

DV2- l 

DCA 

HORD 

CL A 


TAD 

OUOL 

RAL 


DCA 

OUOL 

I SZ 

MP3 

JMP 

DV3 


TAD WORD 

CLL 

RTL 

DC.4 MP 5 
TAD OUOL 
DCA HORD 
TAD MP5 
JMP I DUBDIV 
7765 
SQUARE 
sqroot 
EXIT 6 
EXIT 6 
EXIT 6 
EXIT 6 
EXIT 6 
EXIT 6 
EX I T 6 
EX I T 6 
EXI T 6 
EXIT 6 
E XI T 6 
EXIT 6 
FXIT 6 
0 


JMS 

DI 

V 2 

JMS 

I 

RARl 

I SZ 

EX 

1 

NOP 



JMP 

I 

dunorm 

DI VI 




x SHIFT OPERAND RIGHT 
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6600 0000 


660 1 

7300 

6602 

3250 

6603 

324 7 

6604 

1045 

6605 

7510 

6606 

2247 

6607 

7640 

6610 

52 1 5 

661 1 

1 046 

66 12 

7640 

6613 

5215 

661 4 

5244 

6615 

1247 

6616 

7640 

661 7 

4646 

6620 

1 045 

6621 

7104 

6622 

77 1 0 

6623 

5234 

662 4 

1 046 

6625 

7004 

662 6 

3046 

662 7 

1045 

6630 

700a 

6631 

304 5 

6632 

22 50 

6633 

5220 

6634 

1250 

6635 

704 1 

6636 

1 044 

663 7 

3044 

6640 

124 7 

66 4 1 

7640 


6642 

6643 

6644 

6645 

6646 

6647 
6650 


4646 

5600 

3044 

5600 

6000 

0000 

0000 


*6600 

/SUBROUTI IMF 
DNORM, 0 

CL A 


TO NORMALISE FLOATING ACC 


GO 6j 


LOPj 


exiti. 


EXI T2j 


NEG, 
SIGN I 
ANTI, 


DCA 
DCA 
TAD 
SPA 
I SZ 
SZA 
JMP 
TAD 
SZA 
JMP 
JMP 
TAD 
SZA 
JMS 
TAD 
RAL 
SPA 
JMP 
TAD 
RAL 
DCA 
TAD 
RAL 
DC A 
ISZ 
JMP 
TAD 
CM A 
TAD 
DCA 
TAD 
SZA 
JMS 
JMP 
DCA 
JMP 
ACMINS 
0 
0 


CLL 
AMT! 
SI GN 1 
HORD 


SI GN J 
CL A 
GO 6 
LORD 
CLA 
GO 6 
exits 

SI GN 1 
CLA 
I NFG 
HORD 
CLL 
CLA 
EXI T1 
LORD 


LORD 

HORD 


HO RD 
AMT 1 
LOP 
AMT 1 
I AC 
EXP 
FXP 
SI GN 1 
CLA 
I NEG 
I DNO RM 
EXP 

I DNORM 


/IS MANTISSA NFG 
/IS MANTISSA ZERO 


/NFG? 
/ YES 


/NFG? 


/YES 
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6651 0000 SOROOT, 


6652 3346 

6653 4407 

6654 6052 

6655 0000 


6656 

1045 

6657 

7710 

6660 

533 5 

666 1 

1 044 

6662 

7100 

6663 

7510 

6664 

7020 

6665 

7010 

6666 

3342 

66 6 7 

7430 

6670 

2342 

6671 

7000 

6672. 

134 5 

6673 

3343 

6674 

3344 

6675 

1053 

6676 

7640 

6677 

5301 

6700 

5340 

6701 

4407 

6702 

5052 

6703 

4342 

6704 

1342 

6705 

0000 

6706 

7240 

6707 

1 044 

6710 

3044 

671 1 

1044 

6712 

704 1 

6713 

1 342 

6714 

7640 

6715 

5331 

6716 

1045 

6717 

7041 

6720 

1343 

6721 

7500 

6722 

7041 

6723 

7001 

6724 

7710 

6725 

5331 

6726 

13 46 

6727 

306 1 

6730 

5651 


OCA FLAG 1 
JMS I 007 
FPUT FPAC1 
FFXT 

TAD HORD 

SPA CLA 

JMP SGENDl 

TAD FXP 

CLL 

SPA 

CML 

RAR 

DCA ITFR1 
SZL 

ISZ I TER 1 
NOP 

TAD SQCON1 
DCA I TER 1+1 
DCA ITER1+2 
TAD FPACl+1 
SZA CLA 
JMP CLCU 
JMP SOFND 
JMS I 7 
FGET FPACl 
FDIV I TER 1 
FADD ITFRJ 
FEXT 


CLA 

CMA 

TAD 

EXP 

DCA 

EXP 

TAD 

EXP 

CMA 

I AC 

TAD 

I TER 1 

SZA 

CLA 

JMP 

ROOT GO 

TAD 

HORD 

CMA 

I AC 

TAD 

ITER1+1 

SMA 


CMA 

I AC 

I AC 


SPA 

CLA 

JMP 

ROOT GO 


TAD FLAG 1 
DCA FLAG 
JMP I SQROOT 


/FLOATING SQUARE ROOT 


/NUMBER IS NEGITIVE 


/Mj^KE FIRST APPROX 


/ NUMBER=0 
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6731 

4407 

ROOTGO 

6732 

6342 


6733 

0000 


6734 

5301 


6735 

4646 

SOENDL 

6736 

£346 

6737 

5253 


6740 

3044 

SOFND, 

6741 

5651 


6742 

0000 

I TER 1 ^ 

6743 

0000 

6744 

0000 


6745 

3015 

SQCON1, 

6746 

0000 

flagi. 


JMS I 7 
FPUT I TER 1 
FEXT 

JMP CLCU 
JMS I MEG 
ISZ FLAG1 
JMP SQR00T+2 
OCA EXP 
JMP I SOROOT 
0 
0 
0 

3015 

0 
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ACMINS 6000 
AC0N6 5744 


AC 1 H 

0041 

AC 1L 

0042 

AD DR 

56 53 

ALGN 

5755 

ALIGN 

6013 

AMOUNT 6116 

AMT 1 

6650 

CLCU 

6701 

D 

6316 

divide 

6310 

DI VI 

6200 

DI V2 

6413 

DMULT 

6216 

DNORM 

6600 

DONE 

6073 

DUBDI V 

6462 

dijnorm 

6 53 6 

DVX 

6473 

DV2 

6501 

DV3 

6470 

ERROR 

6323 

ERROR 1 

6125 

EXIT 

5726 

EXIT! 

6634 

EXIT2 

6644 

EXIT6 

6142 

EXP 

0044 

EXP 1 

0050 

EX! 

0040 

ELAD 

5706 

FLAG 

006 1 

FLAG 1 

6746 

FLDV 

6240 

FLGT 

5673 

FLMY 

5745 

FLPT 

5700 

FLSU 

5723 

FPAC! 

00 52 

FPNT 

5600 

GOOF 

6133 

GO 2 

5652 

GO 6 

6615 

HORD 

0045 

INDRCT 

5661 

ITER! 

6742 

JUMP 

5650 

JUMP 2 

5651 

KEEP 

63 1 7 

LOOPO! 

5627 

LOP 

6620 

lord 

0046 













MASK 3 

5655 

MASK 5 

5656 

MASK 7 

5657 

MIF 

6516 

MINS 

6322 

M I NS2 

6320 

MINUS?? 6400 

MP1 

6456 

MP2 

6461 

MP2PT 

6305 

MP3 

6457 

MP4 

6427 

MP4PT 

6304 

MP5 

6455 

MPSPT 

6306 

MULT 

5753 

NEG 

6646 

NO GO 

6104 

NOHERE 

6113 

NORF 

5757 

NORM 

5754 

NORMF 

6307 

OPMINS 

5725 

OUTGO 

6075 

OVER 1 

0043 

0VFR2 

004 7 

PAGENO 

5660 

OUOL 

0051 

RAR1 

6544 

RAR2 

6321 

REST 

63 1 5 

RETN2 

6124 

RETURN 

63 1 3 

ROOT GO 

6731 

SAVE 

5654 

SGN 

6314 

SHIFT 

6060 

SIGN 

6265 

SIGN1 

6647 

SMACLA 

6312 

SNSWJT 

6276 

SPACLA 

63 1 1 

SPOON 1 

6745 

SPEND 

6 740 

SOEND 1 

6735 

SOROOT 

6651 

SQUARE 

6134 

table 

5662 

table6 

6517 

TAG 1 

6122 

TAG2 

6123 

TEST2 

6117 

TEST 3 

6120 

TEST 4 

6121 

THI R 

6460 

UNORM 

5756 














/FLOATING POINT INPUT/OUTPUT ROUTTMitq 

/requires floating «jik wfSb ; s 

/ENTRY AT 0007 r.KPWETER 

* 5 


0005 

7400 


0006 

7200 


0007 

5600 

FPNT , 

* 44 

0044 

0000 

EXPONT 

0045 

0000 

hordfr 

0046 

0000 

lorder. 

* 52 

0052 

0000 

fpaci. 

00 53 

0000 

0054 

0000 


0055 

7777 

SWITl, 

00 56 

7777 

SWIT2, 

0057 

0000 

CHAR, 

0060 

0000 

DSWIT, 

*6767 

• 6767 

0000 

PRCHAR, 

6770 

1056 


6771 

7650 


6772 

5767 


67 73 

1377 


6774 

4776 


6775 

5767 


6776 

73 44 

OPUT, 

6777 

02 1 2 

LFED, 


7400 

7200 

5600 

0 

0 

0 

0 

0 

0 

7777 

7777 

0 

0 

0 

TAD SWIT2 
SNA CLA 
J'MP I PRCHAR 
TAD LFED 
JMS I OPUT 
JMP I PRCHAR 
OUT 
02 1 2 
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/DOUBLE PRECISION DECIMAL-BINARY 

/INPUT AND CONVERSION 

*7000 


7000 0000 


700 1 

7200 

7002 

304 5 

7003 

3046 

7004 

3265 

7005 

3266 

7006 

4342 

7007 

1336 

7010 

7450 

7011 

5217 

701? 

1335 

7013 

7440 

7014 

5220 

70 1 5 

7240 

7016 

3265 

7017 

4342 

7020 

7200 

7021 

1057 

7022 

1 337 

7023 

7500 

7024 

5600 

702 5 

1 340 

7026 

7510 

7027 

5600 

7030 

3263 

7031 

1045 

7032 

0341 

7033 

7440 

7034 

52 1 7 

7035 

2060 

7036 

2266 

7037 

4241 

7040 

5217 

7041 

0000 

7042 

1046 

7043 

3261 

7044 

104 5 

7045 

3262 

7046 

3264 

7047 

4267 

70 50 

4267 

7051 

4303 

70 5? 

4267 

7053 

1263 

7054 

3261 

7055 

3262 

70 56 

4303 

7057 

1264 

7060 

5641 

7061 

0000 

706? 

0000 


7063 0000 

7064 0000 


DECONV, 


DF.CON, 


MULT 10, 


LTE.MP, 

HTEMP, 

DIGIT, 

REMAIN, 


7065 0000 SIGN, 

7066 0000 DNUMBR, 


0 

CLA 

DC A HORDF.R 
DCA LORDER 
DCA SIGN 
DCA DNUMRR 
JMS INPUT 
TAD PLUS 
SNA 

JMP DECON 
TAD MINUS 
SZA 

JMP .+4 
CLA CMA 
DCA SIGN 
JMS INPUT 
CLA 

TAD CHAR 
TAD MIN9 
SMA 

JMP I DECONV 
TAD PLUS 13 
SPA 

JMP I DECONV 
DCA DIGIT 
TAD HORDER 
AND MASK 
SZA 

JMP DECON 
ISZ DSWIT 
I SZ DNUMBR 
JMS MULTI 0 
JMP DECON 
0 

TAD LORDER 
DCA LTF.MP 
TAD HORDER 
DCA HTEMP 
DCA REMAIN 
JMS MULT?. 

JMS MULT? 

JMS DUBLAD 
JMS MULT? 

TAD DIGIT 
DCA LTEMP 
DCA HTEMP 
JMS DUBLAD 
TAD REMAIN 
JMP I MULT10 

0 

0 

0 

0 17 

0 
0 












7067 

0000 M UL T 2 * 

7070 

7300 

707 1 

1046 

70 72 

7004 

7073 

3046 

7074 

104 5 

7075 

7004 

7076 

304 5 

7077 

1264 

7100 

7004 

7101 

3264 

710? 

5667 

7103 

0000 DUBLAD, 

7104 

7300 

7105 

1046 

7106 

1261 

7107 

3046 

7110 

7004 

71 1 1 

1045 

71 12 

1262 

7113 

3045 

7114 

7004 

7115 

1 264 

71 16 

326 4 

71 1 7 

5703 

7120 

0000 M SI GN , 

7121 

7300 

712? 

2265 

7123 

5720 

7124 

1 046 

7125 

7041 

7126 

3046 

7127 

1045 

71 3D 

70 40 

713 1 

7430 

713? 

7001 

7133 

3045 

7134 

5720 

7135 

7776 MINUS* 

7136 

7525 PLUS, 

7137 

7506 MIN 9, 

7140 

001? PLUS 12, 

7141 

7600 MASK, 


0 

CLA CLL 
TAD LORDER 
RAL 

DCA LORDER 
TAD HORDER 
RAL 

DC A HORDER 
TAD REMAIN 
RAL 

DCA REMAIN 
JMP I MULT? 
0 

CLA CLL 
TAD LORDER 
TAD LTEMP 
DCA LORDER 
RAL 

TAD HORDER 
TAD HTEMF 
DCA HORDER 
RAL 

TAD REMAIN 
DCA REMAIN 
JMP I DURLAD 

0 

CLA CLL 
ISZ SIGN 
JMP I MSI GN 
TAD LORDER 
CMA I AC 
DCA LORDER 
TAD HORDER 
CMA 
SZL 
I AC 

DCA HORDER 
JMP I MSI GN 

-2 

-253 

-272 

12 

7600 
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/INPUT A CHARACTER, IF 
/INPUT SWITCH TO SEE I 
/BF- TYPED. IF RUBOIJT, 


7142 

0000 

INPUT 

7143 

7200 


7144 

6031 


7145 

5344 


7146 

6036 


7147 

3057 


71 50 

1057 


7151 

4766 


71 52 

1057 


7153 

74 50 


7154 

5343 


71 55 

1370 


7156 

74 50 


7157 

5767 


7160 

1371 


7161 

7650 


7162 

4765 


7163 

1057 


7164 

5742 


7165 

6767 

PRINT, 

7166 

7344 

OUTPUT 

7167 

7401 

RESTRT 

7170 

740 1 

MRBOUT. 

7171 

0162 

MI NCR, 

71 72 

7300 

ROU, 

7173 

1046 


71 74 

7710 


7175 

2045 


7176 

5777 


7177 

7575 



0 

CL A 
KSF 
JMP 
KRB 

DCA CHAR 
TAD CHAR 
JMS I OUTPUT 
TAD CHAR 
SNA 

JMP INPUT+1 
TAD MRROUT 
SNA 

JMP I RFSTRT 
TAD MINCR 
SNA CLA 
JMS I PRINT 
TAD CHAR 
JMP I INPUT 

PRCHAR 

OUT 

FLINTP+I 
-37 7 
377-215 
CLA CLL 
TAD LORDER 
SPA CLA 
I SZ HORDER 
JMP I .+i 
LFLINT 


CR, TEST 
F LF SHOULD 
RESTART input. 
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/FLOATI' 
/USES: 

/ 

/ 

*72?10 

7200 0000 FLOUTP.* 

720] 4217 

7202 1324 

72.03 3044 

7204 1343 

7205 4344 

7206 4737 

7207 1055 

7210 7650 

7211 5600 

7212 1341 

7213 4344 

7214 1342 

7215 4344 

7216 5600 


G OUTPUT "£** FORMAT 
T$F 

JMP . - i 

TLS 


0 

JMS FOIJTCN 
TAD BEXP 
DCA EXPOMT 
TAD che 
JMS OUT 
JMS I FEXPPT 
TAD StolT 1 
SNA CL A 
JMP I FLOUTP 
TAD CARRTN 
JMS OUT 
TAD LiMFEED 
JMS OUT 
JMP J FLOUTP 


7217 

0000 

7220 

7300 

72.2 1 

1045 

72.22 

7710 

7223 

7220 

7224 

1 327 

72.25 

7430 

7226 

1330 

7227 

434 4 

7230 

4352 

7231 

1 33 1 

7232 

4344 

72.33 

7300 

723 4 

104 5 

723 5 

7700 

7236 

5242 

7237 

7040 

7240 

3733 

724 1 

4732 

7242 

7240 

7243 

1044 

724 4 

30 4 4 

7?45 

3324 

7246 

1044 

7247 

7 500 

7250 

5263 

72 51 

1 326 

72 52 

7700 

72 53 

5270 

7254 

4407 

7255 

3 740 

7256 

0000 

72 57 

7240 

72 60 

1 32 4 

7261 

3 324 


7262 5246 


/THIS IvHOLF SUBROUTINE MAY 
TE OUTPUT DIGITS: CHANGE 


BE 

JMS 


altered 

OUTDG TO 


FOUTCN, 


FGO 1 


F GO; 


0 

CL A 

TAD 

SPA 

CLA 

TAD 

SZL 

TAD 

JMS 

JMS 

TAD 

JMS 

CLA 

TAD 

SMA 

JMP 

CM A 

DCA 

JMS 

CLA 

TAD 

DCA 

DCA 

TAD 

SMA 

JMP 

TAD 

SMA 

JMP 

JMS 

FMPY 


CLL 

HORDER 

CLA 

CML 

SPLUS 

SMI INI US 

OUT 

OUTDG 

PERIOD 

OUT 

CLL 

HORDER 
CLA 
FGO j 

I SNPT 
I MSNPT 
CMA 

EXPONT 
EXPONT 
BEXP 
EXPONT 


FEXT 
CLA CMA 
TAD BEXP 
DCA BFXP 
JMP FGO2 


FGO 3 
FOUR 
CLA 
FGO 4 
I FPNT 
I TEMPT 


TO BUFFER 
OCA I 10 
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7.364 
73 65 

7366 

7367 
7270 
7371 

7273 
72 73 

7274 

7275 

7276 

7277 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 
7310 


I 

3372 
0000 
2324 
5246 
3 734 
4736 
4735 
74 10 
4357 
2044 
5274 
7450 
531 1 
4352 
1325 
3044 
4 73 5 
4352 
2044 
5304 
5617 


r w ,5* 

F G04, 

F60 5A, 

FG 06 , 

FG06A, 


73! 1 

7240 

7312 

1324 

73 1 3 

3324 

7314 

1045 

7315 

7640 

7316 

5322 

7317 

1046 

7320 

7650 

7321 

3324 

7322 

7240 

7323 

5302 


FGO 7, 


JMS I FPNT 
FMPV TENTH 
FFXT 

ISZ REXP 
JMP FGO2 
OCA I DPT 
JMS I M2PT 
JMS I M10PT 
SKP 

JMS DIVTWO 
ISZ EXPOMT 
JMP FG0 5A 
SNA 

JMP FGO7 
JMS OUTDG 
TAD MINUS 7 
OCA FXPONT 
JMS I M10PT 
JMS OUTDG 
ISZ FXPONT 
JMP FGO 6 A 
JMP I FOUTCN 

CLA CMA 
tad rexp 

OCA RFXP 
TAD HORDFR 
SZA CLA 
JMP .+4 

tad lordfr 

SNA CLA 
OCA REXP 
CLA CMA 
JMP FGO 6+1 


7324 

7325 

7326 

7327 
V 7330 

7331 

7332 

7333 

7334 

7335 

7336 
733 7 

7340 

7341 

7342 

7343 

7344 

7345 

7346 


0000 

7774 

0004 

0253 

0002 

0256 

7120 

7065 
7063 
704 1 
7067 
7522 
7504 
02 15 
02 1 2 
0305 
0000 
604 1 
5345 


7-34 7 60 46 

7350 7200 

7351 5744 

7352 0000 

73 53 135 6 

7354 4344 

7355 5752 


REXP, 
MINUS 7, 
FOUR, 
SPLUS, 
SMINUS, 

period, 

msnpt, 

SNPT, 

OPT, 

M1 OPT, 
M2PT, 

fexppt, 

tenpt, 

CARRTN, 

lnfeed, 

CHE, 

OUT, 


OUTDG, 


/356 0260 C 260 , 


0 

7774 

4 

253 

2 

256 
MSIGN 
SIGN 
DI GI T 
MULT 10 
MULT 2 
FFXC 
TEN 
215 
212 
30 5 
0 

TSF 

JMP .-i 

TLS 

CLA 

JMP I OUT 

0 

TAD C260 
JMS OUT 
JMP I OUTDG 

2 60 
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73 57 

0 1 " ■ '< 

73 60 

7110 

7361 

3344 

7362 

1045 

7363 

7010 

7364 

3045 

7365 

1046 

73 66 

70 1 0 

736 7 

3046 

73 70 

1344 

73 71 

5757 


OIVTWO, 


7372 7775 

7373 3147 

73 74 3000 


tenth. 


0 

CLL RAR 
DCA OUT 

tad hordfr 

RAR 

RCA HORDER 

tad lordfr 

RAR 

DCA lorder 

TAD OUT 
JMP I DIVTWO 

7775 
3 147 

0000 


7400 
740 1 
7400 

7403 

7404 

7405 

7406 

7407 
7410 
74 1 1 
74 1 9 
74 13 
7414 
74 1 5 

7416 

7417 


0000 

7240 

3313 

30 60 

4716 

7200 

1057 

1312 
7640 
5220 

1313 
76 50 
5222 
3 721 
33 13 
5717 


' r l-u«/ ING 
* 7400 

plinth. 


r-uj!vr INPUT 


7420 
740 1 

7422 

7423 

7424 

7425 

7426 

7427 

7430 

7431 

7432 

7433 

7434 
743 5 


1313 
7650 
1 721 
704 1 
33 14 
4720 
1311 
3044 
4777 
440 7 
6052 
0000 
1057 


0 

CLA cma 
DCA PRSW 
dca os wit 
JMS I DPCVPT 
CLA 

TAD CHAR 
Tad PER 
SZA CLA 
JMP FI GO 1 
TAD PRSW 
SNA CLA 
JMP FI GO2 
DCA I DPN 
DCA PRSW 
JNP I DPCSPT 


FI GO 1, 
FIG02, 

FI GO3, 


TAD 

SNA 

TAD 

cma 

dca 

JMS 

TAD 

DCA 

JMS 

JMS 

FPUT 

F EXT 

TAD 1 


PRSW 
CLA 
I DPN 
I AC 
SEXP 

i msgnpt 

C27 

EX PONT 
I xnorm 

I FPNT 

fpac 1 


7436 

7640 

tad minusf 

743 7 

5252 

SZA CLA 

7440 

4716 

JMP endf 1 

7441 

4720 

JMS I DPCVPT 

7442 

1045 

J|V, S I MSGNPT 

7443 

7510 

TAD HORDFR 

7444 

700 1 

SPA 

7445 

7640 

I AC 

7446 

5277 

SZA CLA 

7447 

1 046 

JMP excess 

74 50 

1 3 1 4 

tad LORDER 

7451 

3314 

T40 SEXP 

dca sfxp 
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/EN0 OF FLOATING point 
/compensate for DECImIl 


7452 

7453 

7454 

7455 

7456 

• 7457 

74 60 
7461 
7462 
7463 
7464 
7465 
7466 
7467 


440 7 
5052 
0000 
1314 
7450 
5776 
7700 
5270 
4407 
3 70 7 
0000 
33 14 
52 5 5 
5776 


ENDF1, 


7470 
74 71 
74 72 
74 73 
74 74 

7475 

7476 


440 7 FI GO 4 , 
3304 
0000 
7240 
13)4 
3314 
5255 


74 7 7 

• 7500 
7501 
7502 
7503 


1315 

3044 
13 15 

3045 
5776 


EXCESS, 


JMS I FPNT 
EGET FPACl 
fext 

tad SEXP 
SNA 

JMP I LROU 
SMA CLA 
JMP FI GO 4 
JMS I FPNT 
FMPY i TENTKL 
FEXT 

1 SZ SEXP 
-IMP ENDF 1 + 3 
J MP I LROU 

JMS I FPNT 
FMPY TEN 
FEXT 
CLA CMA 
TAD SEXP 
CCA SEXP 
JMP ENDF 1+3 

TAD C3777 
DC A EX PONT 
Tad C3777 
CCA HORDER 
JMP I LROU 


7504 

750 5 
7506 
7 50 7 
7510 

751 1 

7512 

7513 

7514 

7515 


0004 TEN, 
2400 

0000 

7372 TENTHL, 
7/| 73 MINUSE, 
0027 C27, 

7522 PER, 
0000 PRS W, 
0000 SEXP, 
3777 C3777, 


0004 

2400 

0000 

tenth 

-30 5 
0027 
-256 
0 
0 

37 7 7 


7516 

7517 
75^0 
7521 


7^00 DPCVPT, 
7017 DPCSPT, 
7 120 MSGNPT, 
7066 DPN, 


DECONV 

decon 

MSI GN 
cnumrr 


INPUT 

exponents 
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7509 0000 

7523 7300 

7524 10 44 

7525 7510 

7526 7061 

7527 3044 

7^50 i 366 


7531 

7430 

7532 

1367 

7533 

4774 

7534 

3045 

7535 

1 044 

7536 

2045 

| 7537 

13 70 

' 7540 

7500 

7541 

5336 

7542 

1371 

7543 

3044 

7544 

7040 

754 5 

1 04 5 

7546 

7440 

754 7 

4774 

75 50 

3045 

7551 

1044 

7552 

2045 

7553 

1 372 

7554 

7500 

755 5 

5352 

7556 

1 3 73 

75 57 

3046 

7560 

7240 

7561 

1 045 

7562 

4774 

7563 

1 046 

7564 4774 


7565 5722 


/OUTPUT THE EXPONENT 

r CLACj 0 

cla CLL 
tad expont 

SPA 

CMA I AC CML 
DCA EXPONT 
TAD C253 
SZL 

TAD C255 
JMS I DGPT 
OCA HORDER 
TAD EXPOiMT 
ISZ HORDER 

TAD Mi 44 
SMA 

JMP .- 3 
TAD Cl 44 
OCA EXPOIMT 
CMA 

TAD HORDFR 
SZA 

JM S I DGPT 
OCA HORDFR 
TAD EXPOiMT 
I SZ HORDER 
TAD Ml? 

SMA 

JMP .. 3 
TAD C 1 2 
OCA LORDER 
CLA CMA 
TAD HORDER 
JMS I DGPT 
TAD LORDER 
JM S J DGPT 
JMP I FEXC 


7566 

7567 

7570 

7571 
757^ 

7573 

7574 

7575 

7576 

7577 


7773 C253* 

0002 C255* 

7634 M144* 

0 144 Cl 44* 

7 766 Ml 2 * 
0012 C12* 
7352 DGPT* 
5600 LFLIIMT, 
7172 LROU* 
*7577 
6 600 XIMORM* 


253-260 

255-253 

7634 

0144 

7766 
00 1 2 
OUTDG 

JMP I FLIMTP 
ROU 

6600 
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bexp 
CARRTN 
CHAR 
CHE 
Cl2 
C 1 44 
C253 
CP. 55 
C260 
C2? 
C3777 
CECOiNj 
OECONV 
ogpt 

DIGIT 

divtwo 

DNUMBR 

dpcspt 

DPCVPT 
DPn 
DPT 
DS Wl T 
CURLAD 
FNDFl 
EXCESS 
EXPONT 
EEXC 

fexppt 

FGO J 
FGO 2 
FGO 3 
F GO 4 
FG0 5A 
J FGO 6 
FG06A 

FGO 7 
El GOt 
FI GOP 
FI G03 
FIG04 

FLINTP 

floijtp 

POUR 

eoutcn 

FPAC I 
FPiMt 

border 
htemp 
INPUT 


7324 
734 1 
00 5 7 
7343 
7573 
7571 

7566 

7567 
7356 
751 1 
7515 
7017 

7000 
7574 
7063 
73 57 
7066 
7517 
7516 
7521 
7334 
0060 
7103 
7452 
7477 
0044 
7522 
733 7 
7242 
7246 
7263 
7270 
72 74 
7301 
7304 
731 J 
7420 
7422 
7426 
7470 
7400 
7200 
7326 
7217 
0052 
0007 
0045 
7062 
7 1 42 













LFFD 6777 

LFLINT 7575 
LNFEED 7349. 
LORDFR 0046 
LROU 7576 

LTEMP 7061 
MASK 7141 

MINOR 7171 
MINUS 7135 
MINUSE 7510 
MI.VUS7 7325 
MIN9 7137 

MRBOUT 7170 
MSGNPT 7520 
t MSI 6 N 7120 
MSNPT 7332 
MULT 10 704 , 

MUL T2 7067 

M 10 PT 7335 

M12 7572 

Ml 44 7570 

Mpp T 7336 
OPUT 6776 
°UT 7344 

OUTDG 7352 
OUTPUT 7166 
pp * 7512 
PERIOD 7331 
p LUS 7136 
PLUS 12 7140 
PRCHAR 6767 
PRINT 7165 
PRSW 75,3 

r REMAIN 7064 
RESTRT 7167 
ROU 7179 

SEXP 75,4 

SIGN 7065 

SMINUS 7330 
SNp T 7333 

SPLUS 7327 
SWIT1 0055 

SWIT 2 0056 

T EN 7504 

TENPT 7340 

TENTH 7372 

TENTHL 7507 

XNORM 7577 

















